Imports CapaDeNegocios

Partial Public Class FrmEmpresas
    Inherits System.Web.UI.Page
    Dim Localidad As nLocalidad = New CapaDeNegocios.nLocalidad
    Dim Provincia As nProvincia = New CapaDeNegocios.nProvincia
    Dim Ente As nEnteC = New CapaDeNegocios.nEnteC
    Dim Proveedor As nProveedor = New CapaDeNegocios.nProveedor
    Dim Cliente As nCliente = New CapaDeNegocios.nCliente
    Dim CatFiscal As nCategoriaFiscal = New CapaDeNegocios.nCategoriaFiscal
    Dim Comprobaciones As nComprobaciones = New CapaDeNegocios.nComprobaciones
    Dim Condiciones As nCondicion = New CapaDeNegocios.nCondicion

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Inicio()
            CargarCatFiscal()
            CargarProvincias()
            CargarCondiciones()
            CargarLocalidad()
        End If

    End Sub

    Sub Inicio()
        CboCategoriaFiscal.SelectedIndex = -1
        CboCondicion.SelectedIndex = -1
        CboLocalidad.SelectedIndex = -1
        CboProvincia.SelectedIndex = -1

        LblErrorEmpresa.Visible = False
        LblCondicion.Visible = False
        CboCondicion.Visible = False
        LblCategoriaFiscal.Visible = True
        CboCategoriaFiscal.Visible = False

        TxtRazonSocial.Text = ""
        TxtDomicilio.Text = ""
        TxtMail.Text = ""
        TxtTelefono.Text = ""
        TxtCUIT.Text = ""

        DeshabilitarElementos()
        LnkEliminar.Visible = False
        LnkGuardar.Visible = True
        GridCliente.Visible = False
        GridProveedor.Visible = False
        GridEnte.Visible = False
        CboLocalidad.Enabled = False
        LnkGuardar.Enabled = True
        LnkBuscar.Enabled = True

        HFCliente.Value = ""
        HFEnte.Value = ""
        HFProveedor.Value = ""
    End Sub

    Sub HabilitarElementos()
        LnkGuardar.Enabled = True
        TxtRazonSocial.ReadOnly = False
        TxtDomicilio.ReadOnly = False
        TxtMail.ReadOnly = False
        TxtTelefono.ReadOnly = False
        TxtCUIT.ReadOnly = False
        CboProvincia.Enabled = True
        CboCategoriaFiscal.Enabled = True
        CboCondicion.Enabled = True
        LnkBuscar.Enabled = True
    End Sub

    Sub DeshabilitarElementos()
        TxtRazonSocial.ReadOnly = True
        TxtDomicilio.ReadOnly = True
        TxtMail.ReadOnly = True
        TxtTelefono.ReadOnly = True
        TxtCUIT.ReadOnly = True
        CboProvincia.Enabled = False
        CboCategoriaFiscal.Enabled = False
        CboCondicion.Enabled = False
    End Sub

    Sub CargarGrid_Ente()
        GridEnte.DataSource = Ente.Buscar("", "", "", "", "", "")
        GridEnte.DataBind()
    End Sub

    Sub CargarGrid_Proveedor()
        GridProveedor.DataSource = Proveedor.Listar("", "", "", "", "", "", "", "")
        GridProveedor.DataBind()
    End Sub

    Sub CargarGrid_Cliente()
        GridCliente.DataSource = Cliente.Listar("", "", "", "", "", "", "", "", "", "", "", "")
        GridCliente.DataBind()
    End Sub

    Sub CargarProvincias()
        CboProvincia.DataSource = Provincia.Listar(0, "", "")
        CboProvincia.DataTextField = "Nombre"
        CboProvincia.DataValueField = "CodigoProv"
        CboProvincia.DataBind()
        CboProvincia.SelectedIndex = 0
        CboLocalidad.Enabled = False
        LlenarComboLocalidad(CboProvincia.SelectedValue)
    End Sub

    Sub CargarLocalidad()
        CboLocalidad.DataSource = Localidad.Listar("", "", "")
        CboLocalidad.DataTextField = "Nombre"
        CboLocalidad.DataValueField = "CodigoLocalidad"
        CboLocalidad.DataBind()
    End Sub

    Sub CargarCondiciones()
        CboCondicion.DataSource = Condiciones.Listar(0, "", 0, "")
        CboCondicion.DataTextField = "Descripcion"
        CboCondicion.DataValueField = "CodigoCondicion"
        CboCondicion.DataBind()
        CboCondicion.SelectedIndex = -1
        CboCondicion.Enabled = False
    End Sub

    Sub CargarCatFiscal()
        CboCategoriaFiscal.DataSource = CatFiscal.Buscar(0, "")
        CboCategoriaFiscal.DataTextField = "Detalle"
        CboCategoriaFiscal.DataValueField = "CodigoCategoria"
        CboCategoriaFiscal.DataBind()
        CboCategoriaFiscal.SelectedIndex = 0
        CboCategoriaFiscal.Enabled = False
    End Sub

    Sub LlenarComboLocalidad(ByVal prov As Integer)
        CboLocalidad.Items.Clear()
        CboLocalidad.Items.Add(New ListItem("SELECCIONE UNA LOCALIDAD", -1))
        CboLocalidad.DataSource = Localidad.Listar("", 0, prov)
        CboLocalidad.DataTextField = "Nombre"
        CboLocalidad.DataValueField = "CodigoLocalidad"
        CboLocalidad.DataBind()
        If CboLocalidad.SelectedIndex = -1 Then
            Me.Response.Write("<script languaje='javascript'>window.alert('La Provincia Seleccionada no posee localidades Cargadas')</script>")
            CargarProvincias()
        Else
            CboLocalidad.SelectedIndex = -1
        End If
    End Sub

    Protected Sub CboProvincia_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboProvincia.SelectedIndexChanged
        LlenarComboLocalidad(CboProvincia.SelectedValue)
        Me.CboLocalidad.Enabled = True
        CboLocalidad.Focus()
    End Sub

    Protected Sub CboTEmpresa_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboTEmpresa.SelectedIndexChanged
        Select Case CboTEmpresa.SelectedValue
            Case Is = -1
                Inicio()
            Case Is = 0 'cliente
                Inicio()
                LblCondicion.Text = "Condicion de Venta"
                LblCondicion.Visible = True
                LblCategoriaFiscal.Visible = True
                CboCategoriaFiscal.Visible = True
                CboCondicion.Visible = True
                CargarGrid_Cliente()
                HabilitarElementos()
                GridCliente.Visible = True
                GridProveedor.Visible = False
                GridEnte.Visible = False
                TxtCUIT.Visible = True
                LblCuit.Visible = True
                LblCuitFormato.Visible = True

            Case Is = 1 'Proveedor
                Inicio()
                LblCondicion.Text = "Condicion de Compra"
                LblCondicion.Visible = True
                CboCondicion.Visible = True
                LblCategoriaFiscal.Visible = False
                CboCategoriaFiscal.Visible = False
                CargarGrid_Proveedor()
                HabilitarElementos()
                GridCliente.Visible = False
                GridProveedor.Visible = True
                GridEnte.Visible = False
                TxtCUIT.Visible = True
                LblCuit.Visible = True
                LblCuitFormato.Visible = True

            Case Is = 2 'Ente de Certificacion /Calificacion
                Inicio()
                TxtCUIT.Visible = False
                LblCuit.Visible = False
                LblCuitFormato.Visible = False
                LblCategoriaFiscal.Visible = False
                CboCategoriaFiscal.Visible = False
                CargarGrid_Ente()
                HabilitarElementos()
                GridCliente.Visible = False
                GridCliente.Dispose()
                GridProveedor.Visible = False
                GridProveedor.Dispose()
                GridEnte.Visible = True

        End Select
    End Sub

    Private Sub GridCliente_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridCliente.PageIndexChanging
        GridCliente.PageIndex = e.NewPageIndex
        CargarGrid_Cliente()
    End Sub

    Private Sub GridProveedor_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridCliente.PageIndexChanging
        GridProveedor.PageIndex = e.NewPageIndex
        CargarGrid_Proveedor()
    End Sub

    Private Sub GridEnte_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridCliente.PageIndexChanging
        GridEnte.PageIndex = e.NewPageIndex
        CargarGrid_Ente()
    End Sub

    Private Sub GridCliente_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridCliente.RowCommand
        CargarLocalidad()
        If e.CommandName = "Select" Then
            TxtRazonSocial.Text = e.CommandSource.Parent.Parent.FindControl("LblRazonSocial").text
            TxtDomicilio.Text = e.CommandSource.Parent.Parent.FindControl("LblDireccion").text
            TxtTelefono.Text = e.CommandSource.Parent.Parent.FindControl("LblTelCel").text
            TxtMail.Text = e.CommandSource.Parent.Parent.FindControl("Lblmail").text
            TxtCUIT.Text = e.CommandSource.Parent.Parent.FindControl("Lblcuit").text
            CboProvincia.SelectedValue = Localidad.ProvinciaXLocalidad(e.CommandSource.Parent.Parent.FindControl("HFLocalidadCliente").value)
            CboLocalidad.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFLocalidadCliente").value
            CboCondicion.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFCondicionVenta").value
            CboCategoriaFiscal.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFCategoriaFiscal").value
            Session("CodigoCliente") = e.CommandSource.Parent.FindControl("HFCodigoCliente").value
            HFCliente.Value = Session("CodigoCliente")
            LnkBuscar.Enabled = False
            LnkEliminar.Visible = True
        End If

    End Sub

    Private Sub GridEnte_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridEnte.RowCommand
        If e.CommandName = "Select" Then
            CargarLocalidad()
            TxtRazonSocial.Text = e.CommandSource.Parent.Parent.FindControl("LblRazonSocial").text
            TxtDomicilio.Text = e.CommandSource.Parent.Parent.FindControl("LblDireccion").text
            TxtTelefono.Text = e.CommandSource.Parent.Parent.FindControl("LblTelCel").text
            TxtMail.Text = e.CommandSource.Parent.Parent.FindControl("LblMail").text
            CboProvincia.SelectedValue = Localidad.ProvinciaXLocalidad(e.CommandSource.Parent.Parent.FindControl("HFLocalidadEnte").value)
            CboLocalidad.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFLocalidadEnte").value
            Session("CodigoEnte") = e.CommandSource.Parent.FindControl("HFEnte").value
            HFEnte.Value = Session("CodigoEnte")
            LnkEliminar.Visible = True
            LnkBuscar.Enabled = False
        End If
    End Sub

    Private Sub GridProveedor_RowCommand1(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridProveedor.RowCommand

        If e.CommandName = "Select" Then
            CargarLocalidad()
            TxtRazonSocial.Text = e.CommandSource.Parent.Parent.FindControl("LblRazonSocial").text
            TxtDomicilio.Text = e.CommandSource.Parent.Parent.FindControl("LblDireccion").text
            TxtTelefono.Text = e.CommandSource.Parent.Parent.FindControl("LblTelCel").text
            TxtMail.Text = e.CommandSource.Parent.Parent.FindControl("Lblmail").text
            TxtCUIT.Text = e.CommandSource.Parent.Parent.FindControl("Lblcuit").text
            CboProvincia.SelectedValue = Localidad.ProvinciaXLocalidad(e.CommandSource.Parent.Parent.FindControl("HFLocalidadProveedor").value)
            CboLocalidad.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFLocalidadProveedor").value
            CboCondicion.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFCondicionCompra").value

            Session("CodigoProveedor") = e.CommandSource.Parent.FindControl("HFProveedor").value
            HFProveedor.Value = Session("CodigoProveedor")
            LnkBuscar.Enabled = False
            LnkEliminar.Visible = True
        End If
    End Sub

    Protected Sub LnkGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkGuardar.Click
        LblErrorEmpresa.Visible = False
        LblErrorEmpresa.Text = ""

        If Comprobaciones.FN_Vacio(TxtRazonSocial.Text) = True Then
            LblErrorEmpresa.Visible = True
            LblErrorEmpresa.Text = "Ingrese el La Razon Social de la Empresa"
            TxtRazonSocial.Focus()
            Exit Sub
        Else
            If Comprobaciones.FN_EsNumero(TxtRazonSocial.Text) = True Then
                LblErrorEmpresa.Visible = True
                LblErrorEmpresa.Text = "El Campo de Razon Social debe ser de Tipo Texto"
                TxtRazonSocial.Focus()
                Exit Sub
            End If
        End If

        If Comprobaciones.FN_Vacio(TxtDomicilio.Text) = True Then
            LblErrorEmpresa.Visible = True
            LblErrorEmpresa.Text = "Ingrese el Domicilio de la Empresa"
            TxtDomicilio.Focus()
            Exit Sub
        Else
            If Comprobaciones.FN_EsNumero(TxtDomicilio.Text) = True Then
                LblErrorEmpresa.Visible = True
                LblErrorEmpresa.Text = "Error en tipo de dato, tipo requerido : Texto"
                TxtDomicilio.Focus()
                Exit Sub
            End If
        End If


        If Comprobaciones.FN_Vacio(TxtMail.Text) = False Then
            If Comprobaciones.Fn_Mail(TxtMail.Text) = False Then
                LblErrorEmpresa.Visible = True
                LblErrorEmpresa.Text = "Mail no valido"
                TxtMail.Focus()
                Exit Sub
            End If
        End If
        If CboLocalidad.SelectedValue = -1 Then
            LblErrorEmpresa.Visible = True
            LblErrorEmpresa.Text = "Seleccione una Localidad"
            CboLocalidad.Focus()
            Exit Sub
        End If


        Select Case CboTEmpresa.SelectedValue
            Case Is = -1
                Inicio()
            Case Is = 0 'cliente
                If CboCondicion.SelectedValue = -1 Then
                    LblErrorEmpresa.Visible = True
                    LblErrorEmpresa.Text = "Seleccione una Condicion de Venta"
                    CboCondicion.Focus()
                    Exit Sub
                End If
                If CboCategoriaFiscal.SelectedValue = -1 Then
                    LblErrorEmpresa.Visible = True
                    LblErrorEmpresa.Text = "Seleccione una Categoria Fiscal"
                    CboCategoriaFiscal.Focus()
                    Exit Sub
                End If
                'TxtCUIT.Text
                If Comprobaciones.FN_Vacio(TxtCUIT.Text) = True Then
                    LblErrorEmpresa.Visible = True
                    LblErrorEmpresa.Text = "Ingrese Numero de CUIT"
                    TxtCUIT.Focus()
                    Exit Sub
                Else
                    If Comprobaciones.FN_EsNumero(TxtCUIT.Text) = False Then
                        LblErrorEmpresa.Visible = True
                        LblErrorEmpresa.Text = "Error en tipo de dato, tipo requerido : Numerico "
                        TxtCUIT.Focus()
                        Exit Sub
                    Else
                        If Cliente.Existe(TxtCUIT.Text) Then
                            LblErrorEmpresa.Visible = True
                            LblErrorEmpresa.Text = "El CUIT ingrasado ya se encuentra registrado"
                            TxtCUIT.Focus()
                            Exit Sub
                        End If
                    End If
                End If
                If HFCliente.Value.ToString = "" Then
                    Cliente.Insertar(TxtRazonSocial.Text, _
                                    TxtCUIT.Text, _
                                    TxtDomicilio.Text, _
                                    TxtTelefono.Text, _
                                    TxtMail.Text, _
                                    CboCondicion.SelectedValue, _
                                    CboLocalidad.SelectedValue, _
                                    CboCategoriaFiscal.SelectedValue)
                    'BuscarCliente()
                    GridCliente.DataSource = Cliente.Listar("", "", TxtCUIT.Text, "", "", "", "", "", "", "", "", "")
                    GridCliente.DataBind()
                    Me.LnkGuardar.Enabled = False
                    Exit Sub
                Else
                    If Cliente.Modificar(HFCliente.Value, _
                                    TxtRazonSocial.Text, _
                                    TxtCUIT.Text, _
                                    TxtDomicilio.Text, _
                                    TxtTelefono.Text, _
                                    TxtMail.Text, _
                                    CboCondicion.SelectedValue, _
                                    CboLocalidad.SelectedValue, _
                                    CboCategoriaFiscal.SelectedValue) = True Then
                        'BuscarCliente()
                        GridCliente.DataSource = Cliente.Listar(HFCliente.Value, "", "", "", "", "", "", "", "", "", "", "")
                        GridCliente.DataBind()
                        LnkGuardar.Enabled = False
                        LblErrorEmpresa.Text = "Modificacion Realizada Correctamente"
                        LblErrorEmpresa.Visible = True
                        HFCliente.Value = ""
                        Exit Sub
                    End If
                    LblErrorEmpresa.Text = "Modificacion No Realizada"
                    Exit Sub
                End If

            Case Is = 1 'Proveedor
                If CboCondicion.SelectedValue = -1 Then
                    LblErrorEmpresa.Visible = True
                    LblErrorEmpresa.Text = "Seleccione una Condicion de Compra"
                    CboCondicion.Focus()

                    Exit Sub
                End If

                If Comprobaciones.FN_Vacio(TxtCUIT.Text) = True Then
                    LblErrorEmpresa.Visible = True
                    LblErrorEmpresa.Text = "Ingrese Numero de CUIT"
                    TxtCUIT.Focus()
                    Exit Sub
                Else
                    If Comprobaciones.FN_EsNumero(TxtCUIT.Text) = False Then
                        LblErrorEmpresa.Visible = True
                        LblErrorEmpresa.Text = "Error en tipo de dato, tipo requerido : Numerico "
                        TxtCUIT.Focus()
                        Exit Sub
                    Else
                        If Comprobaciones.FN_CantCaracteres(TxtCUIT.Text, 11) = False Then
                            LblErrorEmpresa.Visible = True
                            LblErrorEmpresa.Text = "Verifique la cantidad de Numeros en el CUIT"
                            TxtCUIT.Focus()
                            Exit Sub

                        End If
                    End If
                End If
                If HFProveedor.Value.ToString = "" Then

                    If Cliente.Existe(TxtCUIT.Text) = True Then
                        LblErrorEmpresa.Visible = True
                        LblErrorEmpresa.Text = "El CUIT ingrasado ya se encuentra registrado"
                        TxtCUIT.Focus()
                        Exit Sub
                    End If
                    Proveedor.Insertar(TxtRazonSocial.Text, _
                                    TxtCUIT.Text, _
                                    TxtDomicilio.Text, _
                                    TxtTelefono.Text, _
                                    TxtMail.Text, _
                                    "", _
                                    CboCondicion.SelectedValue, _
                                    CboLocalidad.SelectedValue, _
                                    CboCategoriaFiscal.SelectedValue)
                    'BuscarProveedor() prueba por error

                    GridProveedor.DataSource = Proveedor.Listar("", "", _
                                                                TxtCUIT.Text, _
                                                                "", "", "", "", "")
                    GridProveedor.DataBind()
                    Me.LnkGuardar.Enabled = False
                    Exit Sub
                Else
                    If Proveedor.Modificar(HFProveedor.Value, _
                                        TxtRazonSocial.Text, _
                                        TxtCUIT.Text, _
                                        TxtDomicilio.Text, _
                                        TxtTelefono.Text, _
                                        TxtMail.Text, _
                                        "", _
                                        CboCondicion.SelectedValue, _
                                        CboLocalidad.SelectedValue) Then

                        LnkGuardar.Enabled = False
                        LblErrorEmpresa.Text = "Modificacion Realizada Correctamente"
                        LblErrorEmpresa.Visible = True
                        'BuscarProveedor() prueba por error al converti numeric a varchar

                        GridProveedor.DataSource = Proveedor.Listar(HFProveedor.Value, "", "", "", "", "", "", "")
                        GridProveedor.DataBind()
                        HFProveedor.Value = ""

                        Exit Sub
                    End If

                    LblErrorEmpresa.Text = "Modificacion No Realizada"
                    Exit Sub
                End If

            Case Is = 2 'Ente de Certificacion /Calificacion
                If HFEnte.Value.ToString = "" Then
                    Ente.Insertar(TxtRazonSocial.Text, _
                                    TxtDomicilio.Text, _
                                    TxtTelefono.Text, _
                                    TxtMail.Text, _
                                    CboLocalidad.SelectedValue)
                    'BuscarEnte() ver error al convertir a tipo varchar
                    GridEnte.DataSource = Ente.Buscar("", TxtRazonSocial.Text, "", "", "", "")
                    GridEnte.DataBind()
                    Me.LnkGuardar.Enabled = False

                    Exit Sub
                Else
                    If Ente.Modificar(HFEnte.Value, _
                                    TxtRazonSocial.Text, _
                                    TxtDomicilio.Text, _
                                    TxtTelefono.Text, _
                                    TxtMail.Text, _
                                    "", _
                                    CboLocalidad.SelectedValue) = True Then

                        LnkGuardar.Enabled = False
                        LblErrorEmpresa.Text = "Modificacion Realizada Correctamente"
                        LblErrorEmpresa.Visible = True
                        GridEnte.DataSource = Ente.Buscar(HFEnte.Value, "", "", "", "", "")
                        GridEnte.DataBind()
                        HFEnte.Value = ""
                        Exit Sub
                    End If

                    LblErrorEmpresa.Text = "Modificacion No Realizada"
                    LblErrorEmpresa.Visible = True
                Exit Sub
                End If

        End Select

    End Sub
    Protected Sub LnkBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkBuscar.Click
        LnkGuardar.Enabled = True
        Select Case CboTEmpresa.SelectedValue
            Case Is = -1
                Inicio()
            Case Is = 0 'cliente
                BuscarCliente()
            Case Is = 1 'Proveedor
                BuscarProveedor()

            Case Is = 2 'Ente de Certificacion /Calificacion
                BuscarEnte()
        End Select
    End Sub

    Protected Sub LnkCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkCancelar.Click
        Inicio()
        CboTEmpresa.SelectedIndex = -1
    End Sub

    Sub BuscarCliente()
        Dim oCategoriaFiscal As String
        Dim oCondicion As String
        Dim oLocalidad As String

        If Me.CboCategoriaFiscal.SelectedValue = -1 Then
            oCategoriaFiscal = ""
        Else
            oCategoriaFiscal = CboCategoriaFiscal.SelectedValue
        End If
        If Me.CboCondicion.SelectedValue = -1 Then

            oCondicion = ""
        Else
            oCondicion = CboCondicion.SelectedValue
        End If

        If Me.CboLocalidad.SelectedValue = -1 Then
            oLocalidad = ""
        Else
            oLocalidad = CboLocalidad.SelectedValue
        End If
        GridCliente.DataSource = Cliente.Listar("", _
                TxtRazonSocial.Text, _
                TxtCUIT.Text, _
                TxtDomicilio.Text, _
                TxtTelefono.Text, _
                TxtMail.Text, _
                oCondicion, _
                oLocalidad, _
                oCategoriaFiscal, "", "", "")
        GridCliente.DataBind()
    End Sub
    Sub BuscarProveedor()

        Dim oCondicion As String
        Dim oLocalidad As String
        Dim oProveedor As String
        If HFProveedor.Value.ToString = "" Then
            oProveedor = 0
        Else
            oProveedor = HFProveedor.Value
        End If
        If Me.CboCondicion.SelectedValue = -1 Then

            oCondicion = ""
        Else
            oCondicion = CboCondicion.SelectedValue
        End If
        If Me.CboLocalidad.SelectedValue = -1 Then
            oLocalidad = ""
        Else
            oLocalidad = CboLocalidad.SelectedValue
        End If

        GridProveedor.DataSource = Proveedor.Listar(oProveedor, _
                TxtRazonSocial.Text, _
                TxtCUIT.Text, _
                TxtDomicilio.Text, _
                TxtTelefono.Text, _
                TxtMail.Text, _
                oCondicion, _
                oLocalidad)
        GridProveedor.DataBind()

    End Sub
    Sub BuscarEnte()
        Dim oLocalidad As String

        If Me.CboLocalidad.SelectedValue = -1 Then
            oLocalidad = ""
        Else
            oLocalidad = CboLocalidad.SelectedValue
        End If
        GridEnte.DataSource = Ente.Buscar("", _
                TxtRazonSocial.Text, _
                TxtDomicilio.Text, _
                TxtTelefono.Text, _
                TxtMail.Text, _
                oLocalidad)
        GridEnte.DataBind()
    End Sub
    Protected Sub LnkEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkEliminar.Click
        LnkGuardar.Enabled = True
        Select Case CboTEmpresa.SelectedValue
            Case Is = -1
                Inicio()
            Case Is = 0 'cliente
                Cliente.Eliminar(Session("CodigoCliente"))
            Case Is = 1 'Proveedor
                Proveedor.Eliminar(Session("CodigoProveedor"))
            Case Is = 2 'Ente de Certificacion /Calificacion
                Ente.Eliminar(Session("CodigoEnte"))
        End Select
    End Sub

    Protected Sub GridCliente_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GridCliente.SelectedIndexChanged

    End Sub
End Class